COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TITLE AL SYMBOLS
C00005 ENDMK
C⊗;
.TITLE AL SYMBOLS

START = 1000	;Kernel start address
PCODE = 130000          ;Pseudo-code start address

RETRY = 46044	;Retry move address -- THIS CHANGES EACH TIME AL IS RE-ASSEMBLED
;RETRY = 31540	;Retry move address -- THIS CHANGES EACH TIME AL IS RE-ASSEMBLED

        .MACRO .INFO STR,NUM
                .PRINT /STR/
                .PRINT /NUM
/
        .ENDM

.IF2
.INFO <DID YOU CHANGE RETRY? - RETRY = >,\RETRY
.ENDC

;REGISTER DEFINITIONS

PC=%7			;program counter
R7=%7
SP=%6			;stack pointer
R6=%6
R5=%5
R4=%4			;Saved across procedure calls
R3=%3			;Saved across procedure calls
R2=%2			;Saved across procedure calls
R1=%1			;temp
R0=%0			;temp
AC5==%5			;Temp Floating point register
AC4==%4			; "      "       "      "
AC3==%3			; "      "       "      "
AC2==%2			; "      "       "      "
AC1==%1			; "      "       "      "
AC0==%0			; "      "       "      "


       .MACRO	XX SYM			;Just gives SYM the next number.
	   .IFDF SYM
	       .IF1
	       .ERROR You are using SYM in two ways!!!
	       .ENDC
	   .ENDC
	    SYM == II
	    II == II+2
       .ENDM

	.MACRO MAKEOP CNAME, ANAME	;Compiler name, Address name
	XX	ANAME
	.ENDM

					;The interpreter operation table
;	.INSRT  INTOPS.PAL[AL,HE]

.END START